home *** CD-ROM | disk | FTP | other *** search
/ Gold Medal Software 3 / Gold Medal Software - Volume 3 (Gold Medal) (1994).iso / tutor / pumps.arj / GLOSSARY.TXT < prev    next >
Text File  |  1993-11-11  |  2KB  |  49 lines
  1. \MOVE 'GLOSSARY' TO CURRENT_TOPIC
  2. \OVERLAY 1,A,43,21\CALL MAIN_TITLE
  3. Glossary
  4. \CALL SET_STANDARD_ONKEYS\MOVE 23 TO TUBE_COLORS
  5. \X OPEN_SCRN\ON KEY PG_UP\ON KEY PG_DN JUMP GOSUB5\X TAG14000\IF CURR_PG>14990 OR CURR_PG<14000\MOVE 14000 TO CURR_PG\ENDIF
  6. \MOVE 14100 TO CURR_PG
  7. \MOVE 040 TO Q\MOVE 220 TO R\MOVE 700 TO S\MOVE 594 TO T\MOVE 12 TO U\CALLM TUBE_BOX
  8. \MOVE '242919PW' TO FONT_FLNM\CALLM RD_FON
  9. \LOC 40,220\WID 660 DOT\OVER 0,A,44,23
  10. \"
  11.         The Glossary
  12.        is not available
  13.         at this time.
  14. \"
  15. \"
  16. \"
  17. \"
  18. \"
  19. \"
  20. \"
  21. \"
  22. \"
  23. \MOVE 'ASCOLOGO' TO PIC_FLNM\CALLM RD_PIC
  24. \MOVE '242919PW' TO FONT_FLNM\CALLM RD_FON
  25. \LOC 340,538\OVER 1,A,57,23\WIDTH 320 DOTS
  26.  Press <ENTER>...
  27. \IF DEMO_MODE='YES'
  28. \MOVE 750 TO Q\MOVE 300 TO R\MOVE 990 TO S\MOVE 416 TO T\MOVE 9 TO U\CALLM TUBE_BOX\LOCATE 750,300\OVER 1,A,60,23\WID 240 DOTS
  29. (This option is not available in this demo.)
  30. \ENDIF
  31. \MOUSE FRAME=0,3 W=67,270,67,504 A=0,1 L=47,LASTY_WHERE R=-1\MOVE E TO CURR_SUBLEVEL\MOVE CURR_SUBLEVEL TO LASTY_WHERE
  32. \X GOSUB5
  33. \IF DEMO_MODE='YES'\JUMP MAINPAGE\ENDIF
  34. \MOVE 'PUMPMENU' TO TEXT_FLNM\CALLM RD_TXT\JUMP MAINPAGE
  35. \X  MAINPAGE\CALLM WAITOFF\MOVE 'PUMPMENU' TO TEXT_FLNM\CALLM RD_TXT
  36. \X ALT_QUITED\ON ERROR\END
  37. \X SET_STANDARD_ONKEYS\ON KEY F10 JUMP MAINPAGE\ON KEY 4096 JUMP ALT_QUITED\CALLM SET_ERROR_ONKEYS\RETURN
  38. \X CLEAR_ONKEYS\CLEAR ON KEYS\CALL SET_STANDARD_ONKEYS\RETURN
  39. \X MAIN_TITLE
  40. \MOVE '242919PW' TO FONT_FLNM\CALLM RD_FON
  41. \MOVE 49 TO Q\MOVE 31 TO R\MOVE 974 TO S\MOVE 119 TO T\MOVE 8 TO U\LINE Q,R,S,T,21,BF\CALLM TUBE_BOX
  42. \LINE 0,145,SCREEN_DOT_WIDTH,SCREEN_DOT_HEIGHT,1,BF
  43. \LOCATE 50,61\WIDTH 924 DOTS CENTERED
  44. \RETURN
  45.  
  46.  
  47.  
  48.  
  49.